home *** CD-ROM | disk | FTP | other *** search
/ Scene Storm / Scene Storm - Volume 1.iso / coding / asm / utils / paddle / paddle.hex < prev   
Text File  |  1980-01-03  |  3KB  |  67 lines
  1.   file$="Paddle" : 'v2.11
  2.   OPEN file$ FOR OUTPUT AS #1
  3.   lin=0 : a$=""
  4. Loop:
  5.   lin=lin+1
  6.   READ x$ : IF x$="**" THEN Endeth
  7. Beyond:
  8.   i=INSTR(x$," ")
  9.   IF i>0 THEN
  10.     x$=LEFT$(x$,i-1)+MID$(x$,i+1)
  11.     GOTO Beyond
  12.   END IF
  13.   x$=UCASE$(x$)
  14.   cs$=RIGHT$(x$,2) : x$=LEFT$(x$,LEN(x$)-2)
  15.   sum=0
  16.   FOR i=1 TO LEN(x$)
  17.     sum=sum+(ASC(MID$(x$,i,1)) XOR i)
  18.   NEXT i
  19.   IF (sum AND 255)<>VAL("&H"+cs$) THEN
  20.     PRINT "Checksum error in line";lin
  21.     GOTO Endeth
  22.   END IF
  23.   x$=a$+x$ : a$=""
  24.   FOR i=1 TO LEN(x$) STEP 2
  25.     IF MID$(x$,i,1) = "G" THEN
  26.       IF MID$(x$,i+2)="" THEN a$=MID$(x$,i) : GOTO Loop
  27.       y$=STRING$(ASC(MID$(x$,i+1,1))-63,VAL("&H"+MID$(x$,i+2,2)))
  28.       i=i+2
  29.     ELSE
  30.       y$=CHR$(VAL("&H"+MID$(x$,i,2)))
  31.     END IF
  32.     PRINT #1,y$;
  33.   NEXT i
  34.   GOTO Loop
  35.  
  36. Endeth:
  37.   CLOSE #1
  38.   PRINT "Operation complete"
  39.   END
  40.  
  41. 1     DATA ga0003 f3gf00 01gj00 9ega00 03e9gb 009e4e 54ffe2 48e780 087006 d4
  42. 2     DATA 42a451 c8fffc 42644c df1001 50ecff f343fa 02172c 780004 4eaefe 4b
  43. 3     DATA 682940 fffc67 000142 43fa02 0f7000 2c7800 044eae fe0e29 40fff8 de
  44. 4     DATA 670001 2c203c ga00f0 012400 2c6cff f84eae fffa29 40fff4 b48066 40
  45. 5     DATA 000112 48e7c0 c2203c ga0001 2a223c 000100 012c78 00044e aeff3a 58
  46. 6     DATA 2940ff ee6608 4cdf43 0360ga 00ec20 4020fc ga0001 2a2948 ffea41 00
  47. 7     DATA e80016 2948ff e641e8 001029 48ffe2 4cdf43 03246c ffe670 ff2c78 ba
  48. 8     DATA 00044e aefeb6 1940ff f37200 01c125 410008 256cff f80004 93c92c 9b
  49. 9     DATA 780004 4eaefe da2480 226cff ea137c 000200 08137c 000100 0941fa 3a
  50. 10    DATA 014223 48000a 41fa00 ee2348 001223 4a000e 70052c 780004 4eaeff 00
  51. 11    DATA 5850ec fff270 00122c fff303 c0720c 03c02c 780004 4eaefe c208ga 7e
  52. 12    DATA 000c66 527000 720074 00246c ffe610 2a000c 122a00 0d342a 000e41 31
  53. 13    DATA fa011a 3f023f 013f00 224f45 fa0028 266cff e22c78 00044e aefdf6 84
  54. 14    DATA 5c8f24 0b9e82 26072c 6cfffc 4eaeff c42200 670c4e aeffd0 609a16 63
  55. 15    DATA c02e0b 4e754a 2cfff2 670e22 6cffea 70052c 780004 4eaeff 527000 52
  56. 16    DATA 102cff f36b08 2c7800 044eae feb020 2cfff4 67082c 6cfff8 4eaeff b9
  57. 17    DATA f448e7 c0c220 2cffee 671022 402011 2c7800 044eae ff2e42 acffee 20
  58. 18    DATA 4cdf43 03202c fffc67 0e2240 2c7800 044eae fe6242 acfffc 70004e 3b
  59. 19    DATA 5c4e75 41f900 dff000 336800 14000c 302800 0c3200 e24902 41ga01 57
  60. 20    DATA b34032 000240 000302 410300 ec4980 013340 000e2a 690004 202900 74
  61. 21    DATA 082251 2c7800 044eae febc2c 4d7001 72014e aeffee 70004e 754d79 3e
  62. 22    DATA 5f5061 ga646c 655f49 6e7472 00646f 732e6c 696272 617279 00706f 36
  63. 23    DATA 74676f 2e7265 736f75 726365 002050 61ga64 6c6520 76616c 75653a 75
  64. 24    DATA 202533 2e3364 202533 2e3364 ga2046 697265 3a2025 30322e 32780d 22
  65. 25    DATA gb0003 f2d2
  66.       DATA **
  67.